home *** CD-ROM | disk | FTP | other *** search
/ Aminet 31 / Aminet 31 (1999)(Schatztruhe)[!][Jun 1999].iso / Aminet / dev / gui / gui4cli.lha / Gui4Cli / G4C / CED / indent.g < prev    next >
Text File  |  1999-04-21  |  605b  |  34 lines
  1. G4C
  2.  
  3. WINBIG 290 42 303 30 indent.g
  4. WinType 11110001
  5. BOX 0 0 0 0 out button
  6.  
  7. xOnLoad
  8.    indentval = "\t"
  9.    guiopen indent.g
  10.    
  11. xOnReLoad
  12.    guiopen indent.g
  13.  
  14. xOnRMB
  15.    guiclose indent.g
  16.  
  17. CTEXT 10 1 "Enter text to indent with (tab=\\t)" #screen 8 2 0 0001
  18.  
  19. XTEXTIN 6 12 210 14 "" indentval "\t" 100
  20.    gosub indent.g indent
  21.  
  22. XBUTTON 218 12 80 14 "Apply"
  23.    gosub indent.g indent
  24.  
  25. xroutine indent
  26.    SendRexx $cedbar.gc/cedport cut
  27.    lvuse CedClip.g 1
  28.    lvchange 'CLIPS:$cedbar.gc/cedClip'
  29.    call LVFormat INDENT  '$indentval'
  30.    lvsave 'CLIPS:$cedbar.gc/cedClip'
  31.    SendRexx $cedbar.gc/cedport paste
  32.  
  33.  
  34.